home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / icons+tools / iconian / sources / emodules / mod / libdebug.e < prev    next >
Text File  |  1995-12-22  |  206b  |  17 lines
  1.  
  2. OPT MODULE
  3. OPT EXPORT
  4.  
  5. MODULE    'dos/dos'
  6.  
  7. PROC debug()
  8.     stdout:=Open('CON:80/300/520/180/DEBUGGING OUTPUT/CLOSE',MODE_NEWFILE)
  9. ENDPROC
  10.  
  11. PROC enddebug()
  12.     IF stdout
  13.         Close(stdout)
  14.         stdout:=0
  15.     ENDIF
  16. ENDPROC
  17.